unit U_YardimciHesapTanim;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, StdCtrls, Buttons,
  ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  Menus, ADODB, siComp;

type
  TfmYardimciHesapTanim = class(TForm)
    adoYardimciHesap: TADOTable;
    DSadoYardimciHesap: TDataSource;
    PM1: TPopupMenu;
    PM1_Ekle: TMenuItem;
    PM1_Sil: TMenuItem;
    cxgrid1: TcxGrid;
    cxgrid1DBTableView1: TcxGridDBTableView;
    cxgrid1DBTableView1KARTKODU: TcxGridDBColumn;
    cxgrid1DBTableView1ACIKLAMA: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD1: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD2: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD3: TcxGridDBColumn;
    cxgrid1DBTableView1YETKIKOD: TcxGridDBColumn;
    cxgrid1DBTableView1AKTIF: TcxGridDBColumn;
    cxgrid1Level1: TcxGridLevel;
    pnl_Alt: TPanel;
    bKapat: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bKapatClick(Sender: TObject);
    procedure PM1_EkleClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmYardimciHesapTanim: TfmYardimciHesapTanim;

implementation

uses ana1;

{$R *.dfm}

procedure TfmYardimciHesapTanim.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=Cafree;
   fmYardimciHesapTanim:=nil;
end;

procedure TfmYardimciHesapTanim.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then close;
end;

procedure TfmYardimciHesapTanim.bKapatClick(Sender: TObject);
begin
  close;
end;

procedure TfmYardimciHesapTanim.PM1_EkleClick(Sender: TObject);
begin
  adoYardimciHesap.insert;
end;

procedure TfmYardimciHesapTanim.FormShow(Sender: TObject);
begin
adoYardimciHesap.open;
end;

end.